home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_playndefmac.edge < prev    next >
Text File  |  1994-11-17  |  939b  |  45 lines
  1. /*
  2. ** $VER: Menu_PlayNDefMac.edge 1.3 (Thursday 11-Nov-93 19:17:06)
  3. **
  4. ** Playback the default macro N' times, upto 999,999,999 times
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* check to see if it exists */
  12. if exists('ram:edge.macro') then do
  13.     
  14.     /* ask the user how many times to replay the macro */
  15.     'requestnumber showlimits title "How many times" default 10 min 1 max 99999999'
  16.     if rc==0 then do
  17.         
  18.         /* save off the count */
  19.         top=result
  20.         
  21.         /* put edge to sleep */
  22.         disableuser
  23.         
  24.         /* increase the error watermark */
  25.         'putenvvar _WE_ErrorLevel 6'
  26.     
  27.         /* loop N times */
  28.         do n=1 to top
  29.             'ram:edge.macro'
  30.             if result='RESULT' then nop
  31.             else if result~=0 then leave
  32.             
  33.             /* check to see if the user want's to give up yet */
  34.             checkabort
  35.             if rc~=0 then leave
  36.         end
  37.         
  38.         /* wake edge back up */
  39.         enableuser
  40.     end
  41. end
  42.  
  43. /* if not then complain */
  44. else 'requestnotify "There is no default macro."'
  45.